home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.09 Sep 87 / fortran source / reset stuff / reset.asm next >
Encoding:
Assembly Source File  |  1987-08-09  |  337 b   |  18 lines  |  [TEXT/EDIT]
  1. ; reset random seed
  2.  
  3.     include quickequ.d
  4.     include traps.d
  5.     include sysequx.d
  6.     
  7.     xdef     start
  8.     
  9. start:    
  10.     clr.l    -(A7)            ;clear result
  11.     _TickCount            ;get tickcount
  12.     clr.l    D2            ;clear D2
  13.     move.l    (A7)+,D2        ;pop off result
  14.     movea.l    (currentA5),A4        ;get A5
  15.     movea.l    GrafGlobals(A4), A3    ;get qd globals
  16.     move.l    D2, randSeed(A3)    ;update seed
  17.     rts
  18.